RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE XTAB ( ! 

IDENT = 'V04=-000' | 
*BLISS32C 
ADDRESSING MODE (EXTERNAL =LONG, RELATIVE ,NONEXTERNAL=LONG_ RELATIVE) | 


)«z 


vv 


SSSSSSSSSSSssssssssssssssssssssssssssssss 


OGOOCOCCOCSSSSSCOSSCOOSCOSOoOoOoOoOoOoOoOO 


BEGIN 


SRR RRA RARER RARER REET AEE EAA AAEAA AAAS 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


+ 
® 
® 
a 
we 
® 
® 
ae 
* 
ie TRANSFERRED. . 
® 
* 
® 
® 
® 
* 
® 
* 
® 
® 


leleleleleloleloleloleololo) 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= py A 5 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee AAA RAAT AERA 
' 


ie¢ 

: FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

! ABSTRACT: Expands a tab, according to tab stop settings. 
ENVIRONMENT: Transportable 
i 
i 


AUTHOR: R.W.Friday CREATION DATE: July, 1978 


SOWONAOUESWN OO OONAOU EWN MH OOONOUE WN HOOD ONOUS wn 


OWDNA MNES WIN S$ O OONAUS WIN (OC OONOAUES WO OONOUS wn 


a ea a a ta 5 9 ss tb ss ss Ss 9 2s © 2 ss SS OOO OOOD 
- 
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SAUNA AWA AA AI AI PIPPOPUNINUNUNIDY 2 9 OOO MH COOOOOCOOCO 


Be Fe Se Se Ge Se Se FH FH Se Be Se Oe Ge Ge Be Be Oe Be Os Se Se SHS Se Se Se Se Se Se Se SHS Se Sees Se Setease 
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—_—__ 


K 4 
XTAB 16-Sep-1984 01:57: VAX-11 Bliss-32 V4.0-742 Pa 
v04-000 Revision History 12-888: 3b 94:38:97 DISKSVMSMASTER: CRUNOFF ..SRCIJXTAB.BLI;1 ™ (25 
: eg 41 1 ZSBTTL ‘Revision History’ 
s 6 ts 1! 
: te rh : MODIFIED BY: 
: 46 045 1: 006 KFA00006 Ken Alden B-Jun=1983 
s 6 Bag a Tabs may now expand out to the right margin, which may 
3 re Bee ! be larger than the page size. 
: $50 §0c8 1 i 005 KAD00005 Keith Dawson 07-Mar-1983 
;. 0050 1! Global edit of all modules. Updated module names, idents, 
; 35 0033 ; copyright dates. Changed require files to BLISS Library. 
: 54 053 1 i-- 


— | 
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18-Sen-1984 94:32:69 VAX=11 Bliss-32 V4.0-7 ge 


=742 Pa 3 
Module Level Declarations DISKSVMSMASTER: CRUNOFF .SRCJXTAB.BLI;1 (3) 


ZSBTTL "Module Level Declarations’ 


EQUATED SYMBOLS: 


0 
8 TABLE OF CONTENTS: 
0 i 
6 i INCLUDE FILES: 
0 i 
0 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 
9 REQUIRE 'REQ:RNODEF'; i RUNOFF variant definitions 
1 ZIF DSRPLUS XTHEN 
LIBRARY "REQ:DPLLIB'; ! DSRPLUS BLISS Library 
1 "pea "REQ:DSRLIB'; ! DSR BLISS Library 
' 
MACROS: 
i 
i 
i 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


OWN STORAGE: 


EXTERNAL REFERENCES: 


' 
i 
i 
i 
i 
i 
EXTERNAL 
mra : ref fixed_string, 
sca : sca_definition, 


tsf : tsf_definition, 
ttable : counted_Llist; 


EXTERNAL ROUTINE 
endchr, 


PIPIPOPOPIPIPIPIPIPYPIPNIPIPIPINPIPINININIPONINPOPNPOPY 


PIPIPINININIIIDN 8 2 2 OO | “QOOCOCOCOCOOCOCOCOCOOOODAAAOOUIMIVIVW! 
NAME WN CO ODONAUE WN OO OODNAU EWN OOODNA UNE WN OOWONOUS 


endwrd, fcimra, remneg; 


Be Se Be Be Se Be Se Be Be Se Ge Be Se Ge Be Se Se Ge Be Se Be Be Ge Se Se Se Se Oe SHS HSH Se Oe SH SHEESH He SESS Se ae 
SOOOCCOCOSOOOOSCOOSCOSOOOOSCOOSOOCOOOCOOCOOOOOOOOOOOOOOOSoOOO 
a aa a a a a tt a a = 8 4 = ts ss = 2 2 SS Ss SS ss Ls 
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Module Level Declarations 12-808- 1382 93:38:87 DISKSVMSMASTER: CRUNOFF .SRCIXTAB.BLI:1 > (4) 
GLOBAL ROUTINE xtab = 


1+ 


FUNCTIONAL DESCRIPTION: 
Expands tabs. 

FORMAL PARAMETERS: None 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns TRUE if the tab could be expanded, otherwise FALSE. 
SIDE EFFECTS: 
Generally causes a reorganization of TSF, MRA, and SCA. 
BEGIN 


| 
| 
| 


current_ext_hl, 


PFs 
f7ll_count, 
hold_cnbits, 
S_ptr; 


+ 
' Compute current length of Line. When doing this count trailing spaces, etc. 
! If the SCA_rent word is not yet finished then SCA_WRD_CPEND will count as a 
$ apec tng character, otherwise as a non-spacer, since if will contain RINTES. 
' Also, detect the fact that the tab may be the very first character to be 
generated on the output Line. 


+ 


DDS DDD DDD TTT SB BB BBE EB AAAI III 


POIPOPOPIPIPIPININPINIPYIAIPININININININIPININININIPINIPYINIPYPIMPPIPUPOPNonunuspnofnonorfnyd 


If a nege btr 
! the left _ margin before beginning the tab-expansion check. (vi.124f, 
21-OCT-1980, kad.) 


IF (.tsf ext hl EQL 0) 
D f 


-sca_ 


SO ODNOAUE WN O ODNOAUE WN —$ O ODNOU EWC ODNOU SWI —O00 


! 
: tive indent is pending, do not cancel it. Instead, subtract it from 
' 
i 


7? 


THEN 
BEGIN 
jane positive pending indentation is canceled because tabs are, by 
‘definition, relative to the left margin and do not include 

' indentation. 

IF .sca_indent GTR 0 

THEN 


sca_indent = 0; : 
‘Subtract the indent if it is negative. 
Sur POWs OEE = .sca_lm + .sca_indent; 


(NANI AINA AAI AAI CP OPOPPONIPNIPUNIPUPIPUNINININNONPNUIN 


SDCOOSOOCOSOSCOOSOSOSOSOSOSSOOSSSOSSOSOOSOOCOCOCOCOO OOOO OOOO OCOO OOOO OOOOOOO 


POPIPIPINSPOPIPONININNPIPPoPy 
oo Se ee | 
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5 E 
current_ext_hl = .tsf_ext_hl; 


IF .current_ext_hl LSS 0 

THEN 
BEGIN 
remneg (); ‘Attempted negative indent. 
gucrent ont = 0; 


current_ext_hl = .current_ext_hl + .sca_wrd_ext_l + .sca_wrd_lst_sp; 
IF _ .sca_wrd_cpend GEQ XC" ' 
THEN 

current_ext_hl = .current ext hl + 1; 
INCR i FROM 1 TO .ttable Ccl_index] DO 

ates C.i] GTR .current_ext_hl 
a BEGIN 'Found a suitable tab setting. 
i Compute number of spaces needed to be added to Line. Do not allow user to tab 
! past the right edge of his page. If the user is in a Literal, the ey: margin 
' will be perger than the page-width. In this case, allow him to expand tabs out 
i to the right margin. (V1.124f, 21-OCT-1980, kad.) 


i 
4 
4 
4 
4 
4 
4! 
¢ IF .ttable C.i] GEQ .sca_rm 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
| 


VSWR | OD OONOUES WN“ OODONOUS WOO 


AA AANI AAAI AAAI NAAN WWW IWInonononofornonopororornororonon) 
PIMIPINIPININID 4 2 2 OO | SH DOOOOOOCOOCOOCWOVOOOOOOO 
FUN CO OONAMNE WIN SO ODNAUE WIN O OONOAOUE WN OOONIO 


IR a a a a i kk kk ik tk kk kk tt tt a tt tt 
> Dd “pe Be Dy te b+ ah tg tt eter PT PE ay 


CGDOOSOSOOSOOOSOOOCOOSOSOSOSOSOSOSOCOSOSOOOSSOSSOSOSOSSCSOSOOOCOCOCOCOCOOOCOOOOOOCOOOCOOOCOOOOO 


Be Be Oe Be Be Be Oe Se Se Se Se Se Se Se Ge Be Se FH Se Se Se Ge FH Fe Se Se Ge Se Ge Fe Gs Se Se Se BH Se SH Se Se Se Se Se Se Se eee FFs Se ee Be Se Se Se ee Seas 


i RETURN false 

i fill_count = .ttable C.i] - .current_ext_hl; 

1 '+ 

§ ! At this point we are certain that this tab can be expanded. All spacing 

' characters have been counted. Now force the current word (if there is one) 

4, ' to be ended. That resets lots of counters, and in particular, forces the 
final pending character into MRA, 

4 ; : endwrd (false, false, false); ‘Anticipate no spaces or justification. 
99 ; § 'Now remove all justification marks from TSF. 

00 ‘This is done by scanning the entire MRA, where the Line is 

01 ; 8 ‘being built up. 

4 s_ptr = .fs start (mra); 

a7 3 ? d_ptr = .s_ptr; 

05 § INCR i FROM 1 TO .tsf_int_hl + .tsf_int_vl DO 

Be EGIN 

0 4 LOCAL 

oe 5 XK, 

10 $ ™ 

1 8 x = CHSRCHAR_A (s_ptr); 

18 40 IF .x EQL rintes 
14 41 THEN 
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i 
Oo 
S 


BEGIN 
'See if this is a justification mark. 
y = CHSRCHAR_A (s_ptr); 


IF _.y EQL %C*J" 
THEN 


BEGIN 'Throw away the justification mark 
s.ptr = CHSPLUS (.s_ptr, 1); 


'Save this escape sequence 
rintes, d_ptr); 


( 
(.y, d_ptr); 
CENSRCRAR_A (s.ptr), diptr); 


MOOOoW m-, 


END 


ELSE 
CHSWCHAR_A (.x, d_ptr); 'Move a ‘'normal’’ character 
ND; 'End of compression. 


'Update TSF and SCA 

tsf_jus_cnt = 0; 

sca_wrd_pntr = .d_ptr; 

‘Update MRA information 

fs_next (mra) = 29 -pEni 

fs-length (mra) = ch$diff (.d_ptr, -fs_start (mra)); 


tsf_int_hl = .fs_length (mra)"= .tsf_int_vl; 


Now put the required number of spaces onto the Line. The spaces are 
inserted in such a way that they become part of the word that will later be 
built. The assumption being made is that the next word will fit on the 
Line being put together. If it does not, then the word with the expanded 
tab prefixed to it will appear on the following Line. However, this will 
probadiy not happen, since RUNOFF users will use tabs to set up columns, 
and will have counted coretws ly Another reason for going through the 
standard character processing is that the tab may be the first aime to be 
output. In that case, it is important that certain information tha 
appears before the first character be added in proper sequence. When 

out yet ing spaces, turn off underlining, bolding, etc. This avoids the 
problem of having input such as “8A B\& ‘generate A B. 


AUS APN OS OONAUE WN O ODNAU EWN OOO NAME WN OOWONOUE WTO 


ALAIN A AAAI AAA AAAI AIAN AAAI NAAN AAW AAA 


PEED A BBE EEE EE EAA WA IIR PPNPoPononong 3 SS SS 
Sti GoG0 So G0 00 G0 G0 <8 dd dS ed ~d-d d d OO OO PO ROP CITI 


WN =O ODN NEW (OC ODNOAV EWN SO OONOUSWN —OVOODNOU EWN "OOOO 


~ Ono 

SSELSAF 
oooooovowvoe 
NOUS W000 w 


—CoOo@w 
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RINE BP UNNMNE BEES EEE EEE EEE EEE EE EEE EE PEEP NN NINO INI NIOAOOAAOAO 


PIPIPPIPOPIPIPINGPININIPYPIPINIPIPPNINIPAINPINIPIPINIDINININPIPIPYIPININPPUNIPUPYPONPNYNNYD 


WAAL AI AAAI 


o 
oo 


hold cnbits = .sca_wrd_cnLits; 
sca_wrd_acnbits = false; 


INCR i FROM 1 TO .fill_count 00 
BEGIN 


sca_wrd_cnbits = false; 
SROCHR Txc* "); 


sca wrd_cnbits = -hold_cnbits; 
RETORN TRUE; ' Successful tab expansion. 
END; ‘End of processing of an applicable tab 


END; 


Pa 
RCIXTAB.BLI;1 


BU 
BU 
BU 
BU 
BU 
BU 
BU 
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BU 
BU 
BU 
BU 
BU 
BU 
Bu 
BL 
BL 
BL 
BL 
BL 
BL 
BL 


; Ie B60 ; 
: 7 400 RETURN FALSE; ‘Falling through means no suitable tab setting was found. 
278 208 END; 9 End oF XTAB : = = 


RINTES, MRA, SCA 
“EXTRN TSF, TTABLE. ENDCHR 
.EXTRN ENDWRD, FCIMRA, REMNEG 


«PSECT S$CODES,NOWRT,2 
ENTRY XTAB 


SUBL2 #4 
MOVL TSF 
4(R 


TLE XTAB 

ENT \V04-000\ 
TRN 

T 


sass R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 
RO 
) 


mo 


AANIM Oh JNOMWMMMIO NOOO LK EVM AHAVODOR MAO ATMWOT SE 


E 
0 000000006 r 


2 
BLBC SCA+148, 2$ 


TSTL SCA+220 BU 


i] 
rae 
m 
o 
= 


$ 
CLRL SCA 


+220 
52 00000000G_ FF 1$: ADDL3 A350, @SCA+116, CURRENT_EXT_HL 


rw OW 


BRB $ 
a8: MOVL  4(RO), CURRENT_EXT_HL 


00000000G_ EF 


000 NOOO ~~ 
Soo 


Mrorofroefrofroenenw=»= rr 


Ooooocoooo oO 


Vin 


EMNE 

CURRENT_EXT_HL 
S 38: CURRENT _EXT_HL, RO 
EXT_HL 


ww 
mo 
uw 
on 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
o 
ao 


: RO CURRENT 
PL SCA+280, #38 


aon Dat et ed pololeoleq) 


ant EN wm WAWIWn | | =O 
oO 
=z 
v 
= 


NVM NUIM O PWD & OE MAOM ODO HOMNNO 
o 
> 
- 
- 
“ 
bd 
o 
2@ 
= 
2 
a 


MB SM fF -OO00D FOW 01 0 FOO OS S$ FD WOH MS SUM ONION 
Bee eee eee eee ee eeee22222222 


o 
od 
Zz 
rc 
eee eee eee Teer ere rere rere Tere rerererererere rere rere rere rere rere rere 
Oo 
Ww 
oO 
Ww 


—900O—-TC CCT 9T9 M9 NOW 9 - SO Ow 9S 9 | FOO 19 OOo - oO mM—oTI0mn 


A 
2 
E 
E 
0 
A 
0 
0 
5 
. 
5 INCL | CURRENT_EXT_HL 0299 
5A 000000006 : 5$: MOVL TTABLE*S, RTO 0301 
008 6$: BRW 16$ 
50 O0000000GEF4 7$: MOVL TTABLE+4C1), RO 
52 5 CMPL RO, CURRENT_EXT_HL 
000000006 FF 5 CMPL RO, @SCA+120 0312 
0 BLSS = «BS 
OOA 0 BRW 17$ 
bE 50 3 9 8$: SUBL3 CURRENT_EXT_HL, RO, FILL_COUNT 0316 
CLRQ. = = (SP) 24 
7 0089 CLRL = = (SP) 
000000006 ef 0 0 CALLS #3, ENDWRD 
9 000000006 E 09 MOVL 8M 0329 
: 9 MOVL (ROS, $_PTR 
3 09C MOVL R, B_ 0330 
1 000000006 E oF MOVL. T 0332 
59 61 1 A Ab ADDL3 24(R1), (RI), RO 
i CLRL 
5 38 
000000006 ae O82 8328 
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XTAB 16-Sep-1984 3 VAX-11 Bliss-32 V4.0-742 
v04-000 Module Level Declarations 12-8 Sep- 7 9}: 38; $7 DISKSVMSMASTER: ck UNOFF.SRCIXTAB.BLI;1 
8 7 OA BB MOVZBL PIR)+, 
0000004A af 8 i} B CMPL #74 
4 : C BNEQ 16s" 
7 p C INCL S_PTR 
A 11 C9 BRB 1T$ 
006 F 3 CB 10$: MOVB MRINTES, (D_PTR)+ 
§ CF MOVB Y, (D_PTR)+ 
9 D MOVE (§_PTR)+, (D_PTR)+ 
6 C DS 11$: ADDL2 #2, I 
11 000D BRB 13$ 
3 29 OODA 128: OVB xX, (D_PTR)+ 
CE 6 9 F OODD 138: AOBLEQ R9 9$ 
20 Al 04 000E1 CLRL. = 32 (RI 
00000000G_ EF 2 DO Spee MOVL D_PTR, SCA+248 
04 a9 d OEB MOVL D_PTR, 4(RO) 
oc AO 5 60 C OOEF SUBL (RO) D_PTR, 12(RO) 
61 Oc Ad 18 Al C3 O00F4 SUBL3 24(R1),712(RO), (R1) 
5B 000000006 EF DO OOOFA MOVL S$CA+196, HOLD_CNBITS 
000000006 gf D4 $19) CLRL SCA+200 
5 04 00107 CLRL I 
OF 11 00109 BRB 15$ 
00000000G EF D4 00108 14$: CLAL stA+1%6 
0 DD 00111 PUSHL #32 
000000006 gf 1 Fe 0113 CALLS #1, ENDCHR 
5 6E— F O11A 158: AOBLEQ FILL_COUNT 14$ 
000000006 EF 5B 00 00118 MOVL WOLD EC CNBITS, | ecAt196 
50 01 00 Bots MOVL #1, RO 
04 00128 RET 
FF3B 54 01 5A F1 00129 168: ACBL R10, #1, I, 7$ 
50 D4 OO12F 178: CLRL RO 
04 00131 RET 
; Routine Size: 306 bytes, Routine Base: S$CODES + 0000 
: 275 0402 1 
; 76 0403 1 END ‘End of module 
77 0404 0 ELUDOM 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
; SCODES 306 NOVEC,NOWRT, RD, EXE,.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
eee Se a Sul Oe © inn RRR ly ce + OO Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 


Page 
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52 | 
- =fep- 1982 3: a8: $3 Bis KSVMGM Meh ASTERSCRUNOFE SRCIXTAB. BLI;1 . (a) 


v04-000 Module Level Declarations 

: -$255$DUA eT Sled -32;1 9 25 :00. 

; Rett RUNOFF .SRCIDSRI 18, L32;1 1308 28 5 Hi $8:00:3 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:XTAB/OBJ=OBJ$:XTAB MSRC$:XTAB/UPDATE=(ENH$:XTAB) 


3 Size: 306 code + 0 data bytes 
; Run Time 00:07. 
3 pny Tine: 00:20. 
3 Lines/CPU Min: 189 
3; Lexemes/CPU-Min: 15689 
3 pemery Used: 97 pages 
se a 


; Compilation Ma 


T CORPORATION 


AH-BT13A-SE 
PROPRIETARY 
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